home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / editors_ / ze16v250.zip / CTYPE.C_ / CTYPE.C
C/C++ Source or Header  |  1992-04-05  |  2KB  |  75 lines
  1. /* ctype.c */
  2.  
  3. /* This file contains the tables and initialization function for elvis'
  4.  * version of <ctype.h>.  It should be portable.
  5.  */
  6.  
  7. #include "config.h"
  8. #include "ctype.h"
  9.  
  10. uchar    _ct_toupper[256];
  11. uchar    _ct_tolower[256];
  12. uchar    _ct_ctypes[256];
  13.  
  14. /* This function initializes the tables used by the ctype macros.  It should
  15.  * be called at the start of the program.  It can be called again anytime you
  16.  * wish to change the non-standard "flipcase" list.  The "flipcase" list is
  17.  * a string of characters which are taken to be lowercase/uppercase pairs.
  18.  * If you don't want to use any special flipcase characters, then pass an
  19.  * empty string.
  20.  */
  21. void _ct_init(flipcase)
  22.     uchar    *flipcase;    /* list of non-standard lower/upper letter pairs */
  23. {
  24.     int    i;
  25.     uchar    *scan;
  26.  
  27.     /* reset all of the tables */
  28.     for (i = 0; i < 256; i++)
  29.     {
  30.         _ct_toupper[i] = _ct_tolower[i] = i;
  31.         _ct_ctypes[i] = 0;
  32.     }
  33.  
  34.     /* add the digits */
  35.     for (scan = (uchar *)"0123456789"; *scan; scan++)
  36.     {
  37.         _ct_ctypes[*scan] |= _CT_DIGIT | _CT_ALNUM;
  38.     }
  39.  
  40.     /* add the whitespace */
  41.     for (scan = (uchar *)" \t\n\r\f"; *scan; scan++)
  42.     {
  43.         _ct_ctypes[*scan] |= _CT_SPACE;
  44.     }
  45.  
  46.     /* add the standard ASCII letters */
  47.     for (scan = (uchar *)"aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ"; *scan; scan += 2)
  48.     {
  49.         _ct_ctypes[scan[0]] |= _CT_LOWER | _CT_ALNUM;
  50.         _ct_ctypes[scan[1]] |= _CT_UPPER | _CT_ALNUM;
  51.         _ct_toupper[scan[0]] = scan[1];
  52.         _ct_tolower[scan[1]] = scan[0];
  53.     }
  54.  
  55.     /* add the flipcase letters */
  56.     for (scan = flipcase; scan[0] && scan[1]; scan += 2)
  57.     {
  58.         _ct_ctypes[scan[0]] |= _CT_LOWER | _CT_ALNUM;
  59.         _ct_ctypes[scan[1]] |= _CT_UPPER | _CT_ALNUM;
  60.         _ct_toupper[scan[0]] = scan[1];
  61.         _ct_tolower[scan[1]] = scan[0];
  62.     }
  63.  
  64.     /* include '_' in the isalnum() list */
  65.     _ct_ctypes[UCHAR('_')] |= _CT_ALNUM;
  66.  
  67.     /* !!! find the control characters in an ASCII-dependent way */
  68.     for (i = 0; i < ' '; i++)
  69.     {
  70.         _ct_ctypes[i] |= _CT_CNTRL;
  71.     }
  72.     _ct_ctypes[127] |= _CT_CNTRL;
  73.     _ct_ctypes[255] |= _CT_CNTRL;
  74. }
  75.